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1.0  INTRODUCTION 


The  Office  of  the  Manager,  National  Communications  System 
[CS) ,  has  been  tasked  to  ensure  the  survivability  of  the 
onal  telecommunications  infrastructure  in  emergency 
litions,  including  nuclear  attack.  In  support  of  this  task, 
OMNCS  is  working  to  promote  standards  within  the  data 
tunication  and  telecommunication  fields  to  increase  the 
iroperability  of  diverse  communication  systems.  This 
oves  the  National  Security  Emergency  Preparedness  (NSEP) 
tunication  capabilities  of  the  nation  by  providing  additional 
^connectivity  among  Federal  telecommunication  assets. 

BACKGROUND 

Present  telecommunication  networks  use  one  of  many  different 
:ocol  suites  to  interconnect  their  services.  The  networks 
.oying  different  protocols  cannot  maintain  communications 
i  one  another  because  the  diverse  protocols  are 
impatible.  To  address  the  protocol  incompatibility  issue, 
OMNCS  recommended  developing  mechanisms,  such  as  gateways, 
.nterconnect  networks  using  these  diverse  protocols.  These 
.ces  will  act  as  translators  between  the  two  networks  while 
itaining  communications  with  each  network  in  its  native 
ruage.  In  addition,  the  OMNCS  has  recognized  the  upcoming 
isitions  that  are  needed  to  support  new  and  evolving 
inology  such  as  the  integration  of  voice  and  data  services 

digital  networks. 

In  the  data  communications  field  there  are  a  number  of 
ralent  standards  for  supporting  end-to-end  communications. 

:e  these  standards  are  expected  to  co-exist  during  the  near 
ire,  gateways  are  needed  that  will  allow  users  of  these 
»rse  protocols  to  communicate. 

Recent  efforts  have  focused  on  developing  a  network 
jonent  to  allow  X.25  end-user  traffic  to  use  future  ISDNs  as 
isport  networks  to  interconnect  disrupted  portions  of  their 
:et-switched  networks.  These  efforts  are  determining  the 
jibility  of  using  excess  the  transmission  capacity  of  ISDN 
-of-band  signaling  channels.  To  assess  this  capability,  a 
>arison  of  the  two  protocols  was  prepared.  This  was  followed 
1  definition  of  protocol  operating  states  and  transitions 
ig  states  needed  to  control  and  implement  an  X.25-ISDN 
sway.  Based  on  these  preliminary  operating  states,  a  SDL 
;ification  for  a  X.25-ISDN  Gateway  was  developed.  The 
5-ISDN  Gateway  has  been  implemented  and  its  capabilities 
mstrated.  The  X.25-ISDN  Gateway  and  demonstration  is 
:ribed  in  X.25-ISDN  Gateway  High  Level  Language  Program 
mstration.  National  Communications  System,  May  12,  1989. 
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1.2  PURPOSE 


The  purpose  of  this  document  is  to: 

.  Present  the  optimized  software  component  of  the  gateway 

.  Document  gateway  software 

.  Discuss  potential  enhancements. 

1.3  ORGANIZATION 

This  X. 25/ISDN  Gateway  Program  Optimization  Report  is 
comprised  of  four  sections.  Section  2.0  describes  the  gateway 
software  design.  Detailed  process  specifications  are  included 
in  this  section. 

A  listing  of  the  gateway  software  code  is  contained  in 
section  3.0. 

Section  4.0  summarizes  the  document  and  discusses  some  major 
issues  involving  the  X. 25/ISDN  Gateway.  The  next  steps  to  be 
taken  are  also  discussed. 
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2.0  GATEWAY  SOFTWARE  DESIGN 


The  gateway  was  designed  to  be  portable  and  modular. 

Written  in  C  language,  the  program  allows  the  user  to  boot  the 
TELEOS  and  the  EICON  boards,  and  examine  statistics  from  the 
gateway,  the  ISDN  Network  Basic  Input/Output  System  (NETBIOS) , 
or  the  X . 25  Network  Adapter  BIOS  (NABIOS) .  The  board  interface 
software  is  commonly  known  as  the  Network  Basic  I/O  System 
interface  or  NETBIOS.  For  the  gateway's  two  boards,  there  are 
two  NETBIOS  interfaces,  NABIOS  for  the  Eicon  X.25  board  and 
NETBIOS  for  the  Teleos  B100PC  ISDN  board.  In  addition,  the  user 
can  control  packet  transmission,  routing,  and  call  clearing. 

The  gateway  switch  architecture  is  composed  of  input/output 
(I/O)  components  and  their  software  control  modules.  The 
components  allow  the  external  influences  (the  user,  X.25,  and 
ISDN  boards)  to  communicate  to  the  internal  gateway  software 
environment  or  modules.  Exhibit  3-1  shows  the  relationship 
between  the  components  and  the  gateway.  Each  of  the  components 
is  discussed  below. 

2 . 1  Man-Machine  Interface 

The  MMI  allows  the  user  sitting  at  the  gateway's  PC  to 
control  the  execution  of  the  gateway.  The  interface  allows  the 
user  to  use  the  PC  keyboard  to  signal  for  initialization  of  the 
X.25  and  ISDN  boards,  display  gateway  packet  transfer 
statistics,  start-up  the  gateway  connections,  and  shutdown  of 
all  outstanding  connections. 

2 . 2  Statistics  Gathering 

Statistics  gathering  occurs  in  two  ways.  First,  the  gateway 
provides  internal  statistics  of  all  packet  transactions  from  one 
side  to  the  other.  Second,  the  gateway  calls  for  the  statistics 
from  either  of  the  two  external  NETBIOS  software  modules  that 
reside  on  the  PC.  The  NETBIOS  statistics  return  actual 
protocol-specific  metrics  of  packet  transfer  activity. 

2 . 3  Protocol  Translation 

The  major  protocol  translation  function  that  takes  place  in 
the  gateway  is  address  translation.  When  a  call  request 
arrives,  the  gateway  performs  a  lookup  in  the  Internal  Address 
Translation  Matrix  using  the  incoming  destination  address  as  the 
key.  A  destination  address  that  is  valid  for  the  opposite 
side's  protocol  is  mapped  to  the  subsequent  outgoing  call 
request. 

2 . 4  Basic  I/O 

In  the  realm  of  the  PC,  an  incoming  packet  cannot  be  sent  to 
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Exhibit  2*1 
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the  output  port  of  the  destination  network.  Instead,  packets 
must  pass  from  the  network  link  through  the  protocol's  PC  board, 
then  through  the  board  interface  software  to  the  gateway. 
Similarly,  outgoing  packets  are  passed  from  the  board  interface 
software  to  the  PC  network  board,  to  the  destination  network. 

To  access  the  respective  NETBIOS  so  the  packets  can  be 
passed,  the  gateway  must  build  a  NETBIOS  Control  Block  (NCB) . 
Each  NCB  must  contain  a  command  code  defining  the  action  that 
NETBIOS  must  tell  the  board  to  perform.  In  addition,  each  NCB 
must  have  several  fields  filled  with  board-specific  information 
detailing  which  board  software  routine  to  use  and  what  logical 
session  number  to  reference.  NCBs  must  contain  the  address  and 
length  of  the  data  being  passed.  Once  the  proper  fields  have 
been  filled,  the  gateway  issues  a  system  interrupt,  which  passes 
the  address  of  the  NCB  to  the  correct  NETBIOS. 

With  the  exception  of  the  NETBIOS  interfaces,  all  of  the 
preceding  components  are  implemented  internally  in  the  gateway. 
The  NETBIOS  software  comes  with  the  standard  distribution 
package  from  the  board  vendors. 

The  detailed  process  specifications  are  included  at  the  end 
of  this  section.  Each  figure  depicts  the  processing  flow  of  a 
module  within  the  gateway  including  all  software  calls  to  other 
routines . 
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EXHIBIT  2-2 
GATEWAY:  MAIN 


2 


EXHIBIT  2-3 
CHECK_CALL_SW 

(*NCB_PTR1,  *NCB_PTR2 ,  *NCB_PTR3 ,  *NCB_PTR4) 
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EXHIBIT  2-4 
CHECK_CALL_SW 

(*NCB_PTR1,  *NCB_PTR2,  *NCB_PTR3 ,  *NCB_PTR4 

(CONT.) 
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EXHIBIT  2-5 
CLEAR_NCB 
(*NCB_POINTER) 
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EXHIBIT  2-6 
SETUP 

(*NCB_PTR1,  *NCB_PTR2,  *NCB_PTR3 ,  *NCB_PTR4) 


EXHIBIT  2-7 
X. 25_LISTEN 
(*NCB. POINTER) 


EXHIBIT  2-8 
ISDN  SEND 


EXHIBIT  2-9 
X. 25  SEND 


I.  IS  CAU. 


EXHIBIT  2-10 
ISDN  X.25D 


EXHIBIT  2-11 
ISDN  CALL  WAIT 
(*NCB_POINTER) 


EXHIBIT  2-12 
ISDN  SIP 
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EXHIBIT  2-13 
ISDN_CALL_WAIT 
(*NCB_POINTER) 
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EXHIBIT  2-14 
ISDN  START  DPP 
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EXHIBIT  2-15 
CALL  SETUP 
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EXHIBIT  2-16 
I S  DN_D_LINK_0PEN 
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EXHIBIT  2-17 
ISDN  CALL  SETUP 
(*NCB_POINTER) 
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EXHIBIT  2-18 
X. 25  HANGUP 


EXHIBIT  2-19 
X . 2  5D_HANGUP 


LOAD  M 
IftOH  NiT«M 

*i  no 

OATA 


ra.COMMAItd 


(  iwium  ) 
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EXHIBIT  2-20 
SEND_CMD_5C 
(*NCB_POINTER) 


EXHIBIT  2-21 
CHECK_X . 2  5_CALL_REQUEST 
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EXHIBIT  2-22 

SET_X .  2  5_ADDRESS  n 

(LENGTH,  X • 2 5_BUFFER  ADDRESS,  X.25  NCB  BUFFER) 


EXHIBIT  2-23 
SHUTDOWN 


EXHIBIT  2-24 
SEND_CMD_60 
( *NCB_POINTER) 


3.0  GATEWAY  SOFTWARE  CODE 


The  code  presented  is  the  implementation  of  the  detailed 
design  shown  in  Section  2.0.  The  code  was  developed  in  the  "C" 
programming  language  using  Microsoft  Quick  C  VI. 1  and  Microsoft 
Quick  C  Compiler  for  the  DOS  environment. 

The  gateway  program  is  a  set  of  modular  I/O  calls  that  allow 
the  user  to  connect  between  X.25  and  ISDN  networks.  Since  being 
developed  and  run  at  the  C&P  site  in  Richmond,  Va.,  the  gateway 
has  been  modified  to  work  with  other  ISDN  switches.  At  the  BAH 
System  Resource  Center  in  Bethesda,  the  gateway  and  its 
associated  software  has  been  tested  and  demonstrated  using  our 
Teleos  IAP  ISDN  switch.  What  follows  is  a  complete  listing  of 
the  gateway  in  the  C  programming  language. 
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# include 
# include 
# include 
# include 
# include 
# include 


<dos.h> 

<stdio.h> 

<stdlib.h> 

<string.h> 

<graph.h> 

<math . h> 


#define  X25_NAME 
#def ine  X25_DIAL_C0DE 
# define  NB_NAME_LEN 
#def ine  NB_NCB_RESERVE 
#def ine  X25D_NAME 
#def ine  SIP_NAME 
#def ine  NETBI0S_60 
#def ine  NETBI0S_5C 
#define  OK 
#define  ESCAPE 


"X25  " 

"03141" 

16 

14 

"*X25D  '• 

"*SIP  » 

((unsigned  char)  0x60) 
( (unsigned  char)  0x5c) 
0 

Oxlb 


typedef  unsigned  char  uchar; 
typedef  unsigned  short  ushort; 
typedef  unsigned  long  ulong; 

/* 

NCB  Structure 
*/ 

typedef  struct 
{ 

uchar  ncb_command; 

uchar  ncb_retcode; 

uchar  ncb_lsn; 

uchar  ncb_num; 

uchar  far  *ncb_buffer; 

ushort  ncb_length; 

uchar  ncb_callname[NB_NAME_LEN] ; 

uchar  ncb_naxne  ( NB_NAME_LEN  ]  ; 

uchar  ncb_rto ; 

uchar  ncb_sto; 

ushort  uil; 

ushort  ui2;  /* 

uchar  ncb_lana_num; 
uchar  ncb_cmd_cplt ; 
uchar  ncb_reserve[NB_NCB_RESERVE] ; 

}  ncb_t ; 
union 

( 

struct  data_raessage_type 
( 

short  data_cmd; 
short  data_LID; 
short  data_Control ; 
short  data_Size; 
char  data_Data( 128]  ; 

)  dm ; 

struct  display_type 
{ 


Segment  address  word 
Offset  address  word 


*/ 

*/ 
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short  dis_cmd; 
char  dis_Message[ 128 ] ; 
)display ; 

struct  control_type 
( 

short  ioctl_cmd; 
short  ioctl_CODE; 
short  ioctl_Size; 
char  ioctl_Data [ 128 ] ; 

} ioctl ; 

} iu , ou ; 


union 
struct 
char 
char 
char 
char 
char 
char 
char 
char 
char 
char 
uchar 
uchar  far 
short 
short 
short 
short 
uchar 
uchar 
uchar 
uchar 
uchar 
uchar 
uchar 
short 
short 
short 
short 


REGS  regs; 

SREGS  sregs; 

error_message  []  =  "This  video  mode  is  not  supported' 
obuf [80] ; 
buffer[255]  ; 
x25_buf fer ( 128 ] ; 

call_buf fer[7]={ 2 , 0x8a ,  0 , 1 , 0 , 0 , 0  } ; 
menu_choice[ 10]={ 0,0,0,0,0,0,0,0,0,0}; 
x25_send_address[20] ; 
x2 5_recv_address [20] ; 
isdn_send_address [20] ; 
isdn_recv_address [20] ; 

*srcp; 

*destp ; 
sw; 
lid; 

x25_call_sw; 
isdn_call_sw; 
x25_lsn; 
sip_lsn; 
x25d_lsn; 
stats  =  0; 
loopback  =  0 ; 
gateway_up  =  0; 
xlisten  =  0; 
hangup ; 

isdn_packets_recv  =  0 ; 
isdn_bytes_recv  =  0; 


short 

x25_packets_recv  = 

0; 

short 

x2  5_bytes_recv 

=  0 

• 

$ 

short 

x25_packets_sent  = 

0; 

long 

starttime=0 ; 

ushort 

remote_length ; 

ncb_t 

iincb; 

/* 

Input 

ISDN 

NCB 

*/ 

ncb_t 

oincb; 

/* 

Output 

ISDN 

NCB 

*/ 

ncb_t 

ixncb ; 

/* 

Input 

X25 

NCB 

*/ 

ncb_t 

oxncb ; 

/* 

Output 

X25 

NCB 

*/ 

ncb_t 

Ixncb ; 

/* 

Listen 

X25 

NCB 

*/ 

void  send_cmd_60 (ncb_t  far  *) ; 
void  send_cmd_5c(ncb_t  far  *) ; 
void  clear_ncb (ncb_t  far  *) ; 
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void  interrupt  far  x25_listen_post ( ) ; 

void  interrupt  far  post_rtn(); 

void  (interrupt  far  *rtn_ptr)(); 

void  x25_listen() ; 

void  isdn_x25d(); 

void  isdn_sip(); 

void  isdn_start_dpp( ) ; 

void  isdn_d_link_open( ) ; 

void  x25d_hangup() ; 

void  x25_hangup() ; 

void  isdn_call_setup(ncb_t  far  *) ; 

void  x25_call_wait(ncb_t  far  *) ; 

void  isdn_call_vait (ncb_t  far  *) ; 

void  interrupt  far  x25_send() ; 

void  interrupt  far  isdn_send() ; 

void  gateway_setup ( ncb_t  far  *,  ncb_t  far  *,  ncb_t  far  *  neb  t 
far  *) ; 

void  check_call_sw(ncb_t  far  *,  ncb_t  far  *,  ncb_t  far  *,  neb  t 
far  *) ; 

void  shutdown(); 

void  main_menu(); 

void  view_statistics()  ; 

void  x25_loopback(ncb_t  far  *) ; 

void  trans_stats ( ) ; 

void  x25_stats(); 

void  isdn_stats() ; 

void  set_x25_address (uchar,  char  *,  char  *) ; 
void  output_message(char  *) ; 
void  selection(); 
void  stat_scr(); 
void  x25_cancel ( )  ; 
void  x25d_cancel ()  ; 

main ( ) 

{ 

uchar 
uchar 
ushort 
ushort 
char 

ncb_t  far 
ncb_t  far 
ncb_t  far 
ncb_t  far 
ncb_t  far 

iinp  =  Siincb; 
oinp  =  &oincb; 
ixnp  =  &ixncb; 
oxnp  =  &oxncb; 
lxnp  =  &lxncb? 
i  =  0; 

main_menu( )  ; 
hangup  =  0; 


11; 

rl; 

setup_gateway  =  0; 
i; 

ans; 

*iinp; 

*oinp; 

* ixnp ; 

*oxnp; 

*lxnp?  /*  Listen  X25  neb  */ 
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0; 


ans  =  0; 
x25__call_sw  = 

isdn_call_sw  =  0; 

while (ans!=/9 ' ) 


if (kbhit ( ) ! =0) 


ans  =  getche ( ) ; 
if (menu_choice[ (ans-49) ]==l) 

{ 

sprintf (obuf ,  "Menu  choice  already 
selected. \n") ; 
output_message(obuf ) ; 

} 

else 

{ 

switch (ans) 


case 


case  ' 2 ‘ 


case  '  3 


case  ' 4 ' 


system ("X25_START") ? 
menu_choice[0]  =  1; 
break ; 

f 

system ( "ISDN_START" ) ; 
menu_choice[ l]  =  l; 
break; 

f  . 

x25_listen(lxnp) ; 
setup_gateway  =  1 ; 
gateway_up  =  1 ; 
_settextposition(12 , 57) ? 
printf("[0N]  \n") ; 
break; 

f  • 

menu_choice[ 3 ]  =1; 
_settextposition(13 , 57) ; 
if (loopback==0) 

{ 

loopback=l ; 
print f ( " [ON]  \n") ; 


else 

{ 


loopback  =  0; 
printf ( " [OFF] \n" ) ; 


case 


break ; 

f  • 

shutdown ( ) ; 
for  (i=0;i<8;i++) 

menu_choice ( i ]  =  0; 
gateway_up  =0;  */ 

loopback  =  0; 
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} 

/*  End.  */ 
} 


menu_choi.ee  [4]  =  l; 
break; 
case  '6': 

trans_stats ( ) ; 

break; 
case  '7'  ; 

x25_stats ( ) ; 
break; 
case  '8'  : 

isdn_stats ( ) ; 
break; 
case  '  9 ' : 

_setvideomode(_DEFAULTMODE) ; 
break; 
default  : 

sprintf (obuf , "Please  stick  to 
reality. . . \n") ; 
output_message (obuf ) ; 

} 

} 

if ( (ans>#0#) &&(ans<'3') | | (ans>'4')&& 

( ans< ' 9 ' ) ) main_menu ( ) ; 

} 

i f ( setup_gat eway== 1 ) 

{ 

if (xlisten!=0) 

{ 

sprintf (obuf , "X25  call  established. 
\n")  ; 

output_message ( obuf) ; 
setup_gateway  =  2 ; 
x25_lsn  =  lxnp->ncb_lsn; 

11  =  x25_buffer[0] ; 

11  =  ( 11<<4 )  ; 

11  =  11»4; 
rl  =  x25_buf fer[0] ; 
rl  =  rl>>4; 
remote_length  =  11; 

set_x25_address ( 11 , x25_send_address , 
&x25_buf fer [ 1] ) ; 

set_x2  5_address ( rl , x25_recv_address , 
&x25_buffer[ 11/2+1 ] ) ; 
gateway_setup ( ixnp,  oxnp,  iinp, 
oinp) ; 

time ( Sstarttime) ; 

) 

} 

check_call_sw( ixnp, oxnp, iinp, oinp) ; 
selection () ; 
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void  set_x25_address (uchar  1,  char  *cp,  char  *ap) 
{ 

short  i,j  =  0; 
uchar  tl,t2; 

i  =  0; 
j  =  l; 

while (i<l/2) 

{ 

tl  =  *ap; 

t2  =  *ap++ ; 
tl  =  (tl»4)  ; 
t2  =  (t2<<4 ) ; 
t2  =  (t2»4)  ; 

sprintf  (cp++,  ,,%c"  ,  (tl+48))  ; 
sprint f  (cp++,  '^c*' ,  (t2+48) )  ; 

i++; 

) 


> 

/* 

Subroutine  to  acutally  send  out  the  command  using  the 
60  interrupt  vector. 

V 

void  send_cmd_60 (ncb_t  far  *ncbp) 

{ 

short  ret  -  0; 


regs.x.bx  =  FP_OFF(ncbp) ; 

sregs.es  =  FP_SEG(ncbp) ; 

ret  =  int86x(NETBI0S_60, &regs, &regs, &sregs) ; 

/* 

if ( (ncbp->ncb_retcode>0) && (ncbp->ncb_retcode!=Oxff ) ) 

{ 

printf ("ISDN  :  int86x  retcode:  0x%x  NCB  retcode  :  0x%x  " 
ret&OxOOf f , ncbp->ncb_retcode) ; 
printf ("Session  LSN  :  0x%x\n" , ncbp->ncb_lsn) ; 

} 

*/ 

} 

/*  Subroutine  to  clear  out  the  NCB.  */ 
void  clear_ncb(ncb_t  far  *ncbp ) 

{ 

int  i; 

char  far  *cptr  =  (char  far  *)  ncbp; 
for  (i=0;  i<sizeof ( *ncbp) ;  i++fcptr++) 

*cptr  =  7\x00'; 


> 

void 

{ 

} 

/* 


interrupt  far  post_rtn() 
sw  =  1  ; 


5C  interrupt  vector. 


V 
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void  send_cmd_5c  (ncb__t  far  *ncbp)  { 
short  ret  =  0; 

int  i ; 

ncb_t  far  *lp; 

regs.x.bx  =  FP_OFF(ncbp) ; 

sregs.es  =  FP_SEG(ncbp) ; 

lp  =  ncbp; 

ret  =  int86x(NETBI0S_5C, &regs, Sregs, Ssregs) ;  /* 

if ( (ncbp->ncb_retcode>0) && (ncbp->ncb_retcode! =0xf f ) 
&&(ncbp->ncb_retcode!=Oxa) ) 

{ 

printf ("\nX25  :  int86x  ret:  0x%x  NCB  ret  :  0x%x  ", 

ret&OxOOf f , ncbp->ncb_retcode) ; 
printf ("Session  LSN  :  Ox%x\n" , ncbp->ncb_lsn) ; 

}  V 

} 

/*  Setup  a  LISTEN  on  the  X25  line...  */ 
void  x25_listen(ncb_t  far  *xncbp) 

{ 

short  i ; 

clear_ncb(xncbp) ; 

xncbp->ncb_command  =  0x91;  /*NABIOS_CALL; */ 
destp  =  xncbp->ncb_callname; 
srcp  =  X25_NAME; 

for  (i=0;  i<l6;  i++,  srcp+-f,  destp++) 

♦destp  =  *srcp; 

xncbp->ncb_buf fer  =  x25_buffer; 
xncbp->ncb_lana_num  =  OxOff; 
xncbp->ncb_length  =  7; 

rtn_ptr  =  x25_listen_post ; 
xncbp->ui2  =  FP_SEG(rtn_ptr) ; 
xncbp->uil  =  FP_OFF(rtn_ptr) ; 

xncbp->ncb_rto  =  10; 

xncbp->ncb_sto  =  10; 

memcpy (x25_buf fer ,  call_buffer,  7) ; 

sprintf (obuf, "Waiting  for  X25  call..."); 

output_message ( obuf ) ; 

send_cmd_5c (xncbp) ; 

) 

void  interrupt  far  x25_listen_post ( ) 

/* 

Post  routine  to  listen  for  X25  call. 

V 

(  xlisten  =1;  ) 
void  isdn_x25d() 


/*  Call  to  *X25D  to  receive  the  lsn.  */ 
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short  i ; 

ncb_t  far  *incbp; 

ncb_t  neb; 

inebp  =  &ncb? 
clear_ncb ( inebp) ; 
incbp->ncb_command  =  0x10; 
destp  =  incbp->ncb_callname; 
srep  =  X25D_NAME; 

for ( i=0 ; i<NB_NAME_LEN ; i++ , srcp++ , destp++ ) 
♦destp  =  *srcp; 
send_cmd__60  ( inebp) ; 
x25d_lsn  =  incbp->ncb_lsn;  ) 

void  isdn_sip() 

/* 

Call  to  *SIP  to  receive  its  lsn. 

*/ 

{ 

short  i; 

ncb_t  far  * inebp; 
ncb_t  neb; 
struct  sip_setup 
{ 

short  sip_command; 
short  reserved; 
short  call_type; 
short  r_adapt; 
short  12_spec; 
short  13_spec; 
short  12_comp; 
short  13_comp; 
short  channel ; 
short  lsn; 
short  dial_length; 
char  dial [4]; 

}ss; 

struct  sip_response 

{ 

short  sip_conunand; 
short  reserved; 
short  lsn; 
short  return_code; 
short  previous__conunand ; 

}sr; 

inebp  =  &ncb; 
clear_ncb( inebp) ; 
incbp->ncb_cominand  =  0x10; 
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destp  =  incbp->ncb_callname; 
srcp  =  SIP_NAME ; 

for ( i=0 ; i <NB_NAME_LEN ; i++ , srcp++ , destp++) 

*destp  =  *srcp; 
send_cmd_60(incbp) ; 
sip_lsn  =  incbp->ncb_lsn; 

/*  Call  to  *SIP  to  send  setup  info.  */ 
incbp->ncb_command  =  0x14 ; 
incbp->ncb_lsn  =  sip_lsn; 
incbp->ncb_buffer  =  (char  *)  &ss; 
incbp->ncb_length  =  sizeof(ss); 
ss.  sip_conmiand  =  0x01; 
ss. reserved  =  0x0; 
ss.call_type  =  0x01; 
ss.r_adapt  =  0x00; 
ss.l2_spec  =  0x06; 
ss.l3_spec  =  0x06; 
ss.l2_comp  =  0x06; 
ss.l3_comp  =  0x06; 
ss. channel  =  0x00; 
ss.lsn  =  (short)  x25d_lsn; 
ss.dial_length  =  0x0; 
sprintf (obuf , "SIP  send  setup. \n" ) ; 
output_message(obuf ) ; 
send_cmd_60(incbp) ; 

sprintf (obuf , "SIP  send  setup  return,  dial  length  :  %d\n", 
ss.dial_length) ; 
output_message(obuf ) ; 


/* 

*/ 


/* 


J 


void 

/* 


*/ 

{ 


Receive  response  from  *SIP. 

incbp->ncb_command  =  0x15; 
incbp->ncb_lsn  =  sip_lsn; 
incbp->ncb_buf fer  =  (char  *)  &sr; 
incbp->ncb_length  =  sizeof(sr); 
sprintf (obuf , "Sending  SIP  response. \n") ; 
output_message(obuf ) ; 
send_cmd_60(incbp) ; 

sprintf (obuf , "SIP  response  received. \n" ) ; 
output_message (obuf ) ; 

Hangup  to  *SIP.  */ 
incbp->ncb_command  =  0x12 ; 
incbp->ncb_lsn  =  sip_lsn; 
sprint-f  (obuf ,  "SIP  hangup\n")  ; 
output_message (obuf ) ; 
send_cmd_60 ( incbp) ; 

isdn_start_dpp ( ) 

send  START  DPP  to  *X25D. 
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short  i; 

ncb_t  far  *incbp; 
ncb_t  neb; 
struct  iotcl_struct 
{ 


short  iotcl_cmd; 
short  iotcl_cmd_cmd  ? 
short  iotcl__cmd_arg[13] ; 

}  iotcl  ; 


/* 


*/ 


/* 


V 


) 

void 

/* 

*/ 

{ 


inebp  =  &ncb; 

rtn_ptr  =  post_rtn;  /*  set  the  post  routine  pointer  */ 

clear_ncb( inebp) ; 

inebp ->ncb_cominand  =  0x14;  /*  Send  -  94  =  no  wait  mode  */ 

destp  =  incbp->ncb_callname; 
srep  =  X25D_NAME; 

f or ( i=0 ; i<NB_NAME_LEN ;  i++ , srcp++ , destp++ ) 

♦destp  =  *srcp; 
incbp->ncb_lsn  =  x25d_lsn; 
inebp- >ncb_buffer  =  (char  *)  & iotcl; 
incbp->ncb_length  =  si2eof ( iotcl) ; 

incbp->ui2  =  FP_SEG(rtn_ptr) ; 
incbp->uil  =  FP_OFF(rtn_ptr) ; 

iotcl. iotcl_cmd  =  0x08; 
iotcl . iotcl_cmd_cmd  =  0x01 ; 
iotcl . iotcl_cmd_arg ( 0 ]  =  8 ; 
iotcl .  iotcl__cmd_arg  [  1  ]  =  0 ; 
iotcl . iotcl_cmd_arg [ 2 ]  =  0 ; 
for(i=3;i<13;i++) 

iotcl . iotcl_cmd_arg [ i ]  =  0 ; 

sw  =  0; 
i  =  0; 

sprintf (obuf , "Start_Dpp. \n" ) ; 
output_message(obuf )  ; 
send_cmd_60 ( inebp ) ; 

while (sw==0) 

{ 

i  =  i; 

) 

sprintf (obuf , "Layers  2  and  3  are  up...\n"); 
output_message (obuf )  ; 

isdn_d_l ink_open ( ) 

Send  a  LINK_0PEN  message  to  *X25D. 


short  i ; 
short  st; 
short  ad; 
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short  xcall; 
short  tr9999 ; 
short  tr0144; 
short  tr0044 ; 
short  ts0145; 
short  ts0144; 

short  dl; 
ncb_t  far  * inebp; 
ncb_t  neb; 
struct  link_struct 
{ 

short  link_op_cmd; 
short  link_op_size; 
char  link_op_control[64] ; 

}link; 

struct  dpp_response 

{ 

short  link_op_res; 
short  1 ink_op_ret_code ; 
short  link_op_LID; 
short  link_op_PCC; 
short  link_op_cause; 
short  link_op_diag; 
short  link_op_session; 

}r; 

inebp  =  &ncb; 
clear_ncb(incbp) ; 
destp  =  incbp->ncb_callname; 
srep  =  X25D_NAME; 

for ( i=0 ; i<NB_NAME_LEN ; i++ , srcp++ , destp++ ) 

*destp  =  *srcp; 
incbp->ncb_command  =  0x14; 
incbp->ncb_lsn  =  x25d_lsn; 
inebp- >ncb_buffer  =  (char  *)  Slink; 
incbp->ncb_length  =  sizeof (link) ; 
link. link_op_cmd  =  0x05; 
link. link_op_size  =  64; 
for  (i=0;  i<64 ;  i++) 

link. link_op_control [ i]  =  0x0; 

st  =  14; 
ad  =  0; 

tr9999  =  strncmp(&x25_recv_address[6] , "9999" , 4) ; 
tr0144  =  strncmp(&x25_recv_address[6] , "0144", 4) ; 
tr0044  =  strncmp(&x25_recv_address[0] , "804", 3) ; 
ts0145  =  strncmp(Sx25_send_address[6] , "0145" , 4) ; 
ts0144  =  strncmp(&x25_send_address[6] , "0144" , 4) ; 
xcall  =  0;  /* 

_settextposition(2 , 1)  ; 

printf ("  999  :  %d  144  :  %d  044  :  %d\n" , tr9999 , tr0144 , tr0044 ) 
printf ("  145  :  %d  144  ;  %d\n" , ts0145 , ts0144) ; 

*/ 

if (tr9999==0) 
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st  =  14 ; 
dl  =  4; 

if (remote_length>4) 

( 

st  =  19; 

memcpy ( Slink. link_op_control [ 14 ] , X25_DIAL_C0D 
dl  =  15; 

} 

memcpy (Slink. link_op_control [st] , x25_send_address , 
remote_length) ;  /*  target  address  */ 
link. link_op_control [st+remote_length]  =  0x0; 
i f ( r emot e_l ength>  4 ) xca 1 1= 1 ; 

) 

if (tr0144==0) 

{ 

memcpy ( Slink. link_op_control[ 14] , "1850", 4) ; 

/*  target  address  */ 

link. link_op_control [ 18 ]  =  0x0; 

dl  =  4; 

} 

if (tr0044==0) 

( 

if (ts0145==0) 

{ 

memcpy(Slink.link_op_control[l4] , "1850", 4) ; 

/*  target  address  */ 
link.link_op_control[18]  =  0x0; 
dl  =  4; 

} 

else 

{ 

memcpy (Slink. link_op_control [ 14 ] , 
"031418846440145", 15) ;  /*  target  address  */ 
link. link_op_control[29]  =  0x0; 
xcall  =  l; 
dl  =  15; 

} 

} 

if (xcall==l) 

{ 

link. link_op_control [0]  =  0x0080; 
link.link_op_control[48]  =  1; 
link. link_op_size  =  51; 

) 

memcpy  ( Slink.  link__op_control  [  30] ,  "0002",  4)  ; 

/*  source  address  */ 

link.  link__op_control[34  ]  =  0x0; 

link.link_op_control[46]  =  Oxl; 

sprintf (obuf , "Calling  ; %s" , link. link_op_control [ 14 ] ) ; 
output_message(obuf ) ; 
send_cmd_60 (incbp) ; 
for ( i=0 ; i<dl ; i++) 

isdn_send_address [ i ]  =  link.  link_op_control [ 14+i ] ; 
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/* 

*/ 


/* 


*/ 

> 


for ( i=0 ; i<5 ; i++ ) 

isdn_recv_address [ i]  =  link. link_op_control [ 30+i ] ; 

Receive  RESPONSE  back  from  *X25D. 

clear_ncb(incbp) ; 

destp  =  incbp->ncb_callname; 

srcp  =  X25D_NAME; 

for ( i=0 ; i<NB_NAME_LEN ; i++, srcp++ , destp++) 

*destp  =  *srcp; 
incbp->ncb_command  =  0x15 ; 
incbp->ncb_lsn  =  x25d_lsn; 

incbp->ncb_buf fer  =  (char  *)  &r; 
inebp- >ncb_length  =  sizeof(r); 
send_cmd_60(incbp) ; 
lid  =  r. link_op_LID; 

sprintf (obuf , "X25  -  ISDN  connection  established. \n") ; 
output_message ( obuf ) ; 

printf ("Start_DPP  return  code:  0x%x\n" , r. link_op_ret_code) ; 
printf ("Link  identifier  :  %d\n" , r . link_op_LlD) ; 

printf ("Session  Number  :  0x%x\n" , r . link_op_session) ; 


void  x25d_hangup() 

/* 

Hangup  the  *X25D. 

*/  { 

short  i ; 

ncb_t  far  *incbp; 
ncb_t  neb; 

inebp  =  &ncb; 
clear_ncb(incbp) ; 
destp  =  incbp->ncb_callname ; 
srcp  =  X25D_NAME; 

for ( i=0 ; i<NB_NAME_LEN ; i++ , srcp++ , destp++ ) 
♦destp  =  *srcp; 
incbp->ncb_command  =  0x12 ; 
incbp->ncb_lsn  =  x25d_lsn; 
send_cmd_60 ( inebp) ; 

sprintf (obuf , "ISDN  D  channel  hangup. \n") ; 
output_message(obuf ) ; 


void  x25_hangup() 

/* 

hangup  the  X25  channel. 

*/  ( 

short  i ; 

ncb_t  far  *xncbp; 
ncb_t  neb; 

char  hang_buffer[256] ; 
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xncbp  =  &ncb; 
clear_ncb(xncbp) ; 
destp  =  xncbp->ncb_callname; 
srcp  =  X25_NAME; 

for ( i=0 ; i <NB_NAME_LEN ; i++ , srcp++ , destp++) 
♦destp  =  *srcp; 
xncbp ->ncb_command  =  0x12 ; 
xncbp->ncb_lana_num  =  OxOff; 
xncbp->ncb_lsn  =  x25_lsn; 
xncbp- >ncb_buffer  =  hang_buffer; 

xncbp->ncb_length  =  0? 
send_cmd_5c (xncbp) ; 
sprintf (obuf , "X25  hangup . \n" ) ; 
output_message(obuf) ; 


void 

*/  ( 


isdn_call_setup (ncb_t  far  *oinp)  /* 

Setup  the  output  to  ISDN  X25D  passing  structure. 

short  i ; 


clear_ncb (oinp) ; 

destp  =  oinp->ncb_callname; 

srcp  =  X25D_NAME; 

for ( i=0 ; i<NB_NAME_LEN ; i++ , srcp++ , destp++ ) 
♦destp  =  *srcp; 
oinp->ncb_command  =  0x14 ; 
oinp->ncb_lsn  =  x25d_lsn; 
oinp->ncb_buf fer  =  (char  *)  &ou.dm; 
oinp->ncb_length  =  sizeof (ou.dm) ; 
ou . dm . data_cmd  =  0x01; 
ou.dm. data_LID  =  lid; 
ou.dm.data_Control  =  0x0; 

> 

void  x25_call_setup(ncb_t  far  *oxnp) 

/* 

Setup  the  output  to  X25  passing  structure. 
V 
{ 

short  i ; 


clear_Tncb(oxnp)  ; 

destp  =  oxnp->ncb_callname ; 

srcp  =  X25_NAME; 

for ( i=0 ; i<NB_NAME_LEN ; i++ , srcp++ , destp++ ) 
♦destp  =  *srcp; 
oxnp->ncb_command  =  0x14 ; 
oxnp->ncb_lsn  =  x25_lsn; 
oxnp->ncb_buf fer  =  iu.dm.data_Data; 
oxnp->ncb_lana_num  =  OxOff; 
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void  x25_call_wait (ncb_t  far  *ixnp) 

/* 

Setup  Wait  routine  to  receive  data  from  the 

V 
{ 

short  i; 

rtn_ptr  =  x25_send; 
clear_ncb(ixnp) ; 
srcp  =  X25_NAME; 

destp  =  ixnp->ncb_callname; 

( i=0 ;  i<NB_NAME_LEN ;  i++ ,  srcp++ ,  destp++ ) 
♦destp  =  *srcp; 
ixnp->ncb_command  =  0x95; 
ixnp->ncb_lsn  *  x25_lsn; 
ixnp->ncb_lana_num  =  OxOff; 
ixnp->ncb_buffer  =  ou.dm.data_Data; 
ixnp->ncb_length  =  128; 

ixnp->ui2  =  FP_SEG ( rtn_ptr ) ; 
ixnp->uil  =  FP_OFF(rtn_ptr); 

send_cmd_5c ( ixnp) ; 

} 

void  isdn_call_wait (ncb_t  far  *iinp) 

/* 

Setup  Wait  routine  to  receive  data  from  the 

V 

( 

short  i ; 

rtn_ptr  =  isdn_send; 
clear_ncb(iinp) ; 
srcp  =  X25D_NAKE; 
destp  =  iinp->ncb_callname ; 
f °r ( i=0 ; i<NB_NAME_LEN ; i++ , srcp++ , destp-M- ) 
♦destp  =  *srcp; 
iinp->ncb_lsn  =  x25d_lsn; 
iinp->ncb_buffer  =  (char  *)  &iu.dm; 
iinp->ncb_length  =  sizeof (iu.dm) ; 
iu . dm . data_cmd  =  0x01; 
iu.dm. da ta_LID  =  lid; 
iu.dm. data_Control  =  0x0; 
iinp->ncb_command  =  0x95; 

iinp->ui2  =  FP_SEG(rtn_ptr) ; 
iinp->uil  =  FP_OFF(rtn_ptr) ; 

send_cmd_60 ( iinp) ; 

) 

void  interrupt  far  isdn_send() 

/*  ISR  for  ISDN  X25  D  channel  send.  */ 


remote  X25  site. 


ISDN  X25D  site. 
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{ 


isdn_call_sw  =1;  } 
void  interrupt  far  x25_send() 

/* 

ISR  for  X25  send. 

V 

{ 

x25_call_sw  =1;  } 


void 

/* 

*/ 

{ 


} 

void 

/* 

*/ 

{ 


gateway_setup ( ncb_t  far  *ixnp,  ncb_t  far  *oxnp, 
ncb_t  far  *iinp,  ncb_t  far  *oinp) 

Setup  the  gateway  for  transmissions. 


if (loopback==0) 

{  isdn_x25d() ; 

isdn_sip ( ) ; 
isdn_start_dpp ( ) ; 
isdn_d_link_open( ) ; 
isdn_call_setup (oinp) ; 
isdn_call_wait (iinp) ; 

) 

x25_call_setup (oxnp) ; 
x25_call_wait (ixnp) ; 

check_call_sw(ncb_t  far  *ixnp,  ncb_t  far  *oxnp, 
ncb_t  far  *iinp,  ncb_t  far  *oinp) 

Subroutine  to  check  for  a  call  appearance 


short  update_needed ; 
short  i ; 
short  nf; 
short  hup  =  0? 


update_needed  =  0; 
i f ( x2  5_cal l_sw 1=0) 

( 

if (loopback! =0) 

x25_loopback(ixnp) ; 

else 

{ 

if ( stats ! =0 ) update_needed 
if ( ixnp->ncb_length>0) 

{ 

ou.dm.data__Size  = 
send_cmd_60 (oinp) 


=  l; 


ixnp->ncb_length; 


} 

} 

if ( ( ixnp->ncb_retcode==0x0a) && (hangup==0) ) 


if (loopback==0)x25d_hangup() ; 
sprintf (obuf , "X25  hangup  received. \n") ; 
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output_message (obuf ) ; 
hangup  =  1; 

) 

else 

{ 

x25_bytes_recv  +=  ixnp->ncb_length; 
x25_packets_recv++ ; 
x25_call_wait(ixnp) ; 
x25_packets_sent++ ; 


) 

x25_call_sw  =  0; 

} 

if ( isdn_call_sw i =0 ) 

( 

if (stats !=0)update_needed  =  l; 
switch  (iu.dm.data_cmd) 

{ 

case  1  : 


if ( iu.dm.data_size>0) 

{ 

oxnp->ncb_buf  f er 
=  iu.dm.data_Data ; 
oxnp~>ncb_length 
=  iu.dm.data_Size; 
send_cmd__5c  (oxnp)  ; 

) 

break ; 

case  2  : 

nf  =  0; 
i  =  0; 

while ( (i<l28) &&(nf==0) ) 

{ 

if ( iu . display . dis_Message [ 
==0X0) 

{ 

oxnp->ncb_length  = 
nf  =  1; 

) 

) 

oxnp->ncb_buf fer  = 
iu. display . dis_Message ; 
send_cmd_5c(oxnp) ; 
break; 

case  3  : 


i] 


i 


> 


if ( ( iu. ioctl . ioctl_CODE>2 ) & 
(hangup==o) ) 

hup  =  1; 

else 

sprintf (obuf , 

"Unrecognized  ioctl  code  : 
%d\n" , iu. ioctl . ioctl_C0DE) ; 
output_message (obuf ) ; 

break; 
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if (hup!=0) 

{ 

x25_hangup() ; 

sprintf (obuf , "ISDN  hangup  received. \n") ; 
ou t pu t_me s sage (obuf ) ; 
hangup  =  1 ? 

} 

else 

{ 

isdn_bytes_recv  +=ixnp->ncb_length ; 
isdn_packets_recv++ ; 
isdn_packets_sent++ ; 
isdn_call_setup(oinp) ; 
isdn_call_wait (iinp) ; 

} 

isdn_call_sw  =0; 


} 

void  shutdown ()  { 

i f ( gateway_up== 1 ) 

{ 

if (loopback==0) 

{ 

isdn_call_sw  =  o; 
x25d_hangup( )  ; 

/*  x25d_cancel ( ) ;  */ 

} 

x25_call_sw  =  0; 
x25_hangup() ; 

/*  x25_cancel () ;  */ 

} 

hangup  =  1; 

sprintf (obuf , "Gateway  is  shutdown. \n" ) ; 
output_message (obuf ) ; 

} 

void  x25_cancel() 

{ 

ncb_t  far  *cnp? 
ncb_t  neb? 
int  i; 

clear_ncb(cnp) ; 
enp  =  &ncb; 

cnp->ncb_command  =  0x35; 
cnp->ncb_length  =  0; 
cnp->ncb_buf fer  =  (char  *)  &ixncb; 
destp  =  cnp->ncb_callname; 
srep  =  X25_NAME; 

for ( i=0 ; i<NB_NAME_LEN ; i++ , srcp++ , destp++ ) 
♦destp  =  *srcp; 
cnp->ncb_lsn  =  x25_lsn; 
cnp->ncb_lana_niizn  =  Oxff; 
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send_cmd_5c(cnp) ; 

} 

void  x25d_cancel ( ) 

{ 

ncb_t  far  *cnp; 
ncb_t  neb; 
int  i; 

clear_ncb(cnp) ; 
enp  =  &ncb; 

cnp->ncb_coinmand  =  0x35; 
cnp->ncb_length  =  0; 
cnp->ncb_buf fer  =  (char  *)  &iincb; 
destp  =  cnp->ncb_callname; 
srep  =  X25D_NAME; 

for (i=0 ; i<NB_NAME_LEN; i++, srcp++, destp++) 

*destp  =  *srcp; 
cnp->ncb_lsn  =  x25d_lsn; 
send_cmd_60 (enp) ; 

) 

void  main_menu() 

/* 

Main  Menu  Screen  routine. 

*/ 

{ 

struct  videoconfig  vc; 

/*  SET  BACKGROUND  */ 

if  (_setvideomode(_ERESCOLOR)  ==  0)  { 

printf  ("IsXn” ,  error_message) ; 
exit(0) ; 

} 

_getvideoconf ig  (&vc); 

_setbkcolor (_BLUE) ; 

/*  ADD  TOP  RECTANGLE  */ 

_setlogorg  (vc.numxpixels/2-l, 0) ; 

_setcolor (15) ; 

_setlinestyle(OxFFFF)  ; 

_rectangle(_GBORDERf  -300,0,300,40)  ; 
_setcolor(9) ; 

_rectangle(_GBORDER,  -299,1,299,39) ; 

/*  ADD  TEXT 

*/ 

_settextcolor  (10); 

_settextposition  (2,30); 

sprintf (buffer,  "X.25  -  ISDN  GATEWAY  vl.o\n'') 
_outtext  (buffer) ; 

_settextcolor  (15); 

_settextposition  (6,37); 
sprintf (buffer,  "MAIN  MENU  \n") ; 
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_outtext  (buffer) ; 

printf ("\n\t\t\t  Gateway  Menu  Options:  \n\n") ; 
printf ("\t\t\t  1)  Reset  and  Load  X.25  \n" ) ? 

printf ("\t\t\t  2)  Reset  and  Load  ISDN  \n" )  ; 

printf ("\t\t\t  3)  Execute  Gateway  Startup  ") ; 

_settextposition(12,57) ; 
if (gateway_up==0) 

printf ("[OFF] \n")  ; 

else 

printf ("[ON]  \n") ; 

printf ("\t\t\t  4)  Toggle  X25  Loopback  ")  ; 

_settextposition (13,57) ; 
if  ( loopback=0) 

printf ("[OFF] \n») ; 

else 

printf ("[ON]  \n") ; 

printf ("\t\t\t  5)  Clear  Calls\n") ; 

printf ("\t\t\t  6)  View  Transmission  Statistics\n") ; 

printf ("\t\t\t  7)  View  X25  Protocol  Statistics\n" ) 

printf ("\t\t\t  8)  View  ISDN  Protocol  Statistics'^") 

printf ("\t\t\t  9)  Exit  to  DOS\n\n") ; 

_rectangle(_G BORDER,  -300,44,300,296); 
_rectangle(_GBORDER,  -299,45,299,295) ; 

/*  ADD  LOWER  RECTANGLE 

*/ 

_setcolor(7) ; 

_setlinestyle ( OxFFFF) ; 

_rectangle (_GBORDER,  -300,300,300,340)  ; 

_rectangle (_GBORDER,  -299,301,299,339) ; 

_settextcolor  (3) ; 

_settextposition  (20,28); 

sprintf (buffer ,  "  Please  enter  a  selection:  ") ; 
_outtext  (buffer) ; 
selection ( ) ; 


void  selection ()  { 

_settextposition(20, 56)  ; 
printf ("  ")  ; 

_settextposition(20, 56) ;  ) 
void  x25_loopback(ncb_t  far  *incb)  /* 

Subroutine  to  perform  a  loopback  on  the  X25  circuit. 

*/  { 

ncb_t  far  *oncb; 
ncb_t  neb; 
short  i ; 

oneb  =  &ncb; 

clear_ncb (oneb) ; 

destp  =  oncb->ncb_callname; 

srep  =  X25_NAME; 

for ( i=0 ; i<NB_NAME_LEN ; i++ , srcp++ , destp++ ) 
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*destp  =  *srcp; 
oncb->ncb_command  =  0x14; 
oncb->ncb_lsn  =  x25_lsn? 
oncb->ncb_buf fer  =  incb->ncb_buf fer ; 
oncb->ncb_length  =  incb->ncb_length; 
oncb->ncb_lana_num  =  OxOff; 
send__cmd_5c (oncb)  ; 


void  trans_stats ( ) 

{ 

long  curtime; 
int  i; 


time (& curtime) ? 

_clearscreen (_GCLEARSCREEN) ; 

_settextcolor  (15) ; 

_settextposition  (6,28); 

sprintf (obuf ,  "GATEWAY  STATISTICS  SCREEN  \n"); 

_outtext  (obuf) ; 

if (starttime>0)  (_settextposition(5, 60) ; 

sprintf (obuf , "Up  Time:  %d  secs", 
curtime-starttime) ; 

_outtext (obuf ) ; 

) 

_settextposition  (8,1) ; 

print f ("\n\tRemote  1  [X25]  \t\t\tRemote  2  ") ; 
if ( loopback==0 ) 

printf ("[ISDN]") ; 

else 

printf (" [Loopback  Mode]"); 

_settextposition( 10 , 1)  ; 

printf ("\n\tSend  Address  :  \t\t\tSend  Address  :\n"); 
printf ("\tRecv  Address  :  \t\t\tRecv  Address  :  \n") ; 
printf ("\tPackets  Recv  :  \t\t\tPackets  Recv  :  \n") ; 
printf ("\tBytes  Recv  :  \t\t\tBytes  Recv  :  \n") ; 
printf ("\tPackets  Sent  :  \t\t\tPackets  Sent  :  \n") ; 
_settextposition(ll, 24) ;sprintf (obuf, "%s" ,x25_send_address) ? 
_outtext (obuf ) ; 

_settextposition(ll, 56) ;sprintf (obuf, "%s", isdn_send_address) 
_outtext (obuf ) ; 

_settextposition( 12 , 24 ) ; sprintf (obuf, "%s" , x25_recv_address) ; 
_outtext (obuf ) ; 

_settextposition( 12 ,56) ; sprintf (obuf , "%s" , isdn_recv_address) 
_outtext (obuf ) ; 

_settextposition(13,24) ; sprintf (obuf , "%d" , x25 _packets_recv) ; 
_outt ext (obuf ) ; 

_settextposition(  13 ,56)  ;  sprintf  (obuf ,  "%d" ,  isdn __packets_recv) 
_outtext (obuf ) ; 

_settextposition( 14 , 24) ; sprintf (obuf , "%d" , x25_bytes_recv) ; 
_outtext (obuf ) ; 

_settextposition ( 14 , 56) ; sprintf (obuf , "%d" , isdn_bytes_recv) ; 
_outtext (obuf ) ; 
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_settextposition (15,24) ; spr int f ( obuf , " %d" , x2  5_packets_sent ) ; 
_outtext (obuf ) ; 

_settextposition (15 ,56) ; spr int f (obuf , "%d" , isdn_packets_sent) ; 
_outtext (obuf ) ; 

_settextposition(17 , 9) ; 

printf  (’’Remote  l  Last  Packet  Received  :")? 
if (loopback! =0) 

{ 

for  (i=0;i<ixncb.ncb_length;i++) printf ("%c", 
ou .  dm . data_Data [  i  ] ) ; 

} 

else 

{ 

for ( i=0 ; i< iu . dm . data_S ize ; i++ ) printf ( " %c " , iu . dm . data_ 
Data [ i ] ) ; 

) 

_settextposition (19,9) ; 

printf ( "Remote  2  Last  Packet  Received  :"); 
if ( loopback==0) 

{ 

for ( i=0 ; i<ou . dm . data_S ize ; i++ ) printf ( " %c " , ou . dm . data_ 
Data ( i ] )  ; 

> 

stat_scr ( ) ; 

sprintf (obuf , "Hit  ENTER  to  return  to  main  menu.\n") ; 
output_message(obuf ) ; 
getch ( ) ; 


void  x25_stats()  { 
int  i; 
ncb_t  neb; 
ncb_t  far  *sncb; 
struct  xstat_record 
{ 


ushort 

reserve ; 

ushort 

len; 

uchar 

session; 

uchar 

status ; 

char 

aname[16] 

char 

pname[16] 

uchar 

rncbp ; 

uchar 

snebp ; 

char 

DTE [16] ; 

ulong 

npos ; 

ulong 

npya ; 

ulong 

ncos ; 

ulong 

ncya ; 

ulong 

nprn; 

ulong 

npyr  ; 

ulong 

nern; 

ulong 

ncyr ; 

ulong 

nrDTE ; 

ulong 

nrnet ; 
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}  xstat ; 


clear_ncb(sncb) ; 
sncb->ncb_command  =  0x34; 
sncb->ncb_lsn  =  x25_lsn; 
sncb->ncb_buf fer  =  (char  *)  &xstat; 
sncb->ncb_length  =  sizeof (xstat) ; 
sncb->ncb_lana_num  =  Gxff; 
srcp  =  X25_NAME; 
destp  =  sncb->ncb_callname; 
for  ( i=0  ?  i <NB_NAME__LEN ;  i++ ,  srcp++ ,  destp++ ) 
*destp  =  *srcp; 
send_cmd_5c(sncb) ; 

__clearscreen(_GCLEARSCREEN) ; 

_settextcolor  (15); 

_settextposition  (5,30); 

sprintf (Obuf , "X25  STATISTICS  SCREEN  \n"); 

outtext (obuf ) ; 

_settextposition (8,17)  ; 

printf ("Session  number  : 

%d\n" , xstat. session) ; 
printf ("\t\tSession  status 
switch  (xstat. status) 

{ 

case  1  ; 

printf ("LISTEN  pending\n") ; 
break ; 

case  2  : 

printf ("CALL  pending\n" ) ; 
break ; 

case  3  : 

printf ("Session  connected\n") ; 
break; 

case  4  : 

printf ("HANGUP  pending\n") ; 
break ; 

case  5  : 

printf ("HANGUP  complete\n" ) ; 
break; 

case  6  : 

printf ("Circuit  Cleared\n") ; 
break; 

} 

printf ("\t\tNumber  of  Receive  NCBs  pending 
%d\n" , xstat. rncbp) ; 

printf ( "\t\tNumber  of  Send  NCBs  pending 
%d\n" , xstat . sncbp) ; 

printf ("\t\tUser  packets  offered/not  acked 
%d/%d\n", 

xstat . npos , xstat . npya ) ; 
printf ("\t\tUser  characters  offered/not  acked 
xstat. ncos, xstat. ncya) ; 
printf ("\t\tNetwork  packets  offered/not  read 


%d/%d\n" , 
%d/%d\n" , 
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xstat.npm,xstat.npyr)  ; 

printf ( "\t\tNetwork  character  offered/not  read:  %d/%d\n", 
xstat.ncrn,xstat.ncyr) ; 

printf ("\t\tNumber  of  resets  by  local  DTE  :  %d\n", 

xstat.nrDTE) ; 

printf ("\t\tNumber  of  resets  by  the  Network  :  %d\n" , 
xstat.nmet)  ; 
stat_scr () ; 

sprintf (obuf , "Hit  ENTER  to  return  to  main  menu.  \n" )  ; 
output_message (obuf )  ; 
getch()  ; 

} 

void  isdn_stats()  { 

_clearscreen(_GCLEARSCREEN) ; 

_settextcolor  (15) ; 

_settextposition  (5,30) ; 

sprintf (obuf , "ISDN  STATISTICS  SCREEN  \n"); 

_outtext (obuf ) ; 

_settextposition (8,17) ; 

printf ("Option  not  currently  available.  \n")  ; 
stat_scr() ; 

sprintf (obuf , "Hit  ENTER  to  return  to  main  menu.\n")  ; 
output__message(obuf )  ; 
getch ( ) ; 

) 

void  output_message(char  *bufptr) 

{ 

char  blanks [71]; 
int  i,  init=0; 

if ( init==0) 

{ 

for(i=0;  i<71;  i+-t-) 

blanks [i]  =//; 
blanks [71]  =  0x0; 
init  =  1; 

> 

_sett ext po s i t i o n  (23,7)  ; 

_outtext  (blanks) ; 

_settextposition  (23,7); 

_outtext  (bufptr) ; 

) 

void  stat_scr() 

( 

struct  videoconfig  vc; 
long  int  j  =  7 ; 

/*  ADD  TOP  RECTANGLE  */ 

_setcolor ( 15) ; 

_setlinestyle(OxFFFF) ; 

_rectangle(_GBORDER,  -300,0,300,40)  ; 

_setcolor(9) ; 
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# 

-  *  - 


_rectangle(_GBORDER,  -299,1,299,39) ; 

/*  ADD  TEXT  */ 

_settextcolor  (10); 

_settextposition  (2,32); 

sprintf (buffer,  "X.25  -  ISDN  GATEWAY  \n") 
_outtext  (buffer) ; 

_rectangle(_GBORDER,  -300,44,300,296) ; 
_rectangle(_GBORDER,  -299,45,299,295) ; 

/*  ADD  LOWER  RECTANGLE  */ 

_setcolor(7) ; 

_setlinestyle(OxFFFF) ; 
_rectangle(_GBORDER,  -300,300,300,340) ; 
-rectangle (_GBORDER,  -299,301,299,339)  ; 

} 
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4.0  SUMMARY 


In  this  document  we  presented  the  detailed  software  design 
for  the  gateway.  A  listing  of  the  optimized  software  code  is 
also  presented.  The  code  was  optimized  to  provide  minimum  call 
setup  delay,  maximum  throughput,  and  efficient  information 
transfer.  The  code  was  developed  in  the  "CM  programming 
language  using  Microsoft  Quick  C  VI. 1  and  the  Microsoft  Quick  C 
Compiler  for  the  DOS  environment. 

After  testing  and  demonstration  at  the  C&P  site  in  Richmond, 
Va.,  it  was  determined  that  the  gateway  hardware  and  software 
operated  efficiently  and  performed  as  expected.  At  the  BAH 
System  Resource  Center  in  Bethesda,  MD,  the  gateway  and  its 
associated  software  has  also  been  tested  and  demonstrated  using 
our  Teleos  IAP  ISDN  switch.  Additional  changes  were  made  to 
make  the  code  portable  across  platforms  and  to  support  other 
ISDN-type  switches.  Minor  modifications  to  the  code  are 
necessary  for  the  gateway  to  support  the  various  ISDN  switches. 

The  gateway  program  currently  runs  with  full  EGA  graphics. 
However,  it  can  be  easily  modified  to  run  with  monochrome 
systems.  The  program  can  be  run  from  a  floppy  disk  as  well  as  a 
hard  disk.  The  executable  file  is  approximately  13,000  bytes. 
The  gateway  hardware  can  also  be  used  as  an  ISDN  enduser 
terminal  or  an  X.25  enduser  terminal  providing  that  the 
appropriate  software  is  loaded. 

The  next  step  in  the  ISDN  gateway  development  will  be  to 
develop  and  implement  a  gateway  that  will  allow  X.25  and  DDN 
(TCP/IP  protocol)  enduser  terminals  to  interconnect  through  the 
ISDN  D  channel.  The  gateway  should  be  able  to  automatically 
identify  the  protocol  of  the  frame  being  received  and  switch  to 
the  proper  transformation  and  mapping  routines. 
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